home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1995 April / Internet Tools.iso / x25 / nrs.shar.Z / nrs.shar / vms.com.ed < prev    next >
Encoding:
Text File  |  1990-04-27  |  588 b   |  27 lines
  1. 1,/outputfile=/-1d
  2. s/outputfile=\([a-zA-Z.0-9]*\)/$  outputfile = "\1"/
  3. .+1,/GROK/d
  4. /GROK/,$d
  5. 2,$g/"/s/"/""/g
  6. 2,$g/$[a-zA-Z]/s/$\([^     $'"][a-zA-Z0-9]*\)/''\1'/g
  7. 2,$s/.*/$  WRITE data "&"/
  8. 1a
  9. $
  10. $  WRITE SYS$OUTPUT " Creating ''outputfile' "
  11. $  OPEN/WRITE data 'outputfile'
  12. $
  13. .
  14. 1i
  15. $  IF " ''STDCONF'"   .EQS. " " THEN STDCONF   == "STDCONF.COM"
  16. $  IF " ''CONFIG'"    .EQS. " " THEN @'STDCONF'
  17. $  IF " ''LOCALCONF'" .EQS. " " THEN LOCALCONF == "LOCALCONF.COM"
  18. $  IF " ''LOCONFIG'"  .EQS. " " THEN @'LOCALCONF'
  19. $
  20. .
  21. $a
  22. $
  23. $  CLOSE data
  24. $  WRITE SYS$OUTPUT " Creation of ''outputfile' done"
  25. .
  26. w
  27.